VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form searching 
   Caption         =   "Search"
   ClientHeight    =   3060
   ClientLeft      =   120
   ClientTop       =   420
   ClientWidth     =   4560
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   10950
   ScaleWidth      =   20160
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame1 
      Height          =   3855
      Left            =   840
      TabIndex        =   20
      Top             =   840
      Width           =   16935
      Begin VB.ListBox List4 
         Height          =   2790
         Left            =   4560
         Sorted          =   -1  'True
         TabIndex        =   67
         Top             =   840
         Width           =   3255
      End
      Begin VB.ListBox List3 
         Height          =   2790
         Left            =   12960
         Sorted          =   -1  'True
         TabIndex        =   66
         Top             =   840
         Width           =   3255
      End
      Begin VB.ListBox List2 
         Height          =   2790
         Left            =   8760
         Sorted          =   -1  'True
         TabIndex        =   65
         Top             =   840
         Width           =   3255
      End
      Begin VB.ListBox List1 
         Height          =   2790
         Left            =   360
         TabIndex        =   64
         Top             =   840
         Width           =   3255
      End
      Begin VB.Label Label36 
         Alignment       =   2  'Center
         Caption         =   "Customer"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   12840
         TabIndex        =   71
         Top             =   600
         Width           =   1095
      End
      Begin VB.Label Label35 
         Alignment       =   2  'Center
         Caption         =   "Sub Link"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   8640
         TabIndex        =   70
         Top             =   600
         Width           =   1095
      End
      Begin VB.Label Label34 
         Alignment       =   2  'Center
         Caption         =   "Direct Down Line"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4560
         TabIndex        =   69
         Top             =   600
         Width           =   1815
      End
      Begin VB.Label Label33 
         Alignment       =   2  'Center
         Caption         =   "Down Line"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   360
         TabIndex        =   68
         Top             =   600
         Width           =   975
      End
      Begin VB.Label Label10 
         Height          =   375
         Left            =   1920
         TabIndex        =   24
         Top             =   600
         Width           =   1695
      End
      Begin VB.Label Label11 
         Height          =   495
         Left            =   5880
         TabIndex        =   23
         Top             =   600
         Width           =   1935
      End
      Begin VB.Label Label12 
         Height          =   495
         Left            =   10200
         TabIndex        =   22
         Top             =   600
         Width           =   1815
      End
      Begin VB.Label Label13 
         Height          =   495
         Left            =   14520
         TabIndex        =   21
         Top             =   600
         Width           =   1575
      End
   End
   Begin VB.PictureBox Picture2 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000008&
      Height          =   5415
      Left            =   9720
      ScaleHeight     =   5385
      ScaleWidth      =   8025
      TabIndex        =   25
      Top             =   4800
      Width           =   8055
      Begin VB.TextBox Text25 
         Height          =   375
         Left            =   5880
         TabIndex        =   58
         Top             =   4920
         Width           =   1695
      End
      Begin VB.TextBox Text24 
         Height          =   375
         Left            =   2040
         TabIndex        =   57
         Top             =   4920
         Width           =   1695
      End
      Begin VB.TextBox Text23 
         Height          =   375
         Left            =   5880
         TabIndex        =   52
         Top             =   4320
         Width           =   1695
      End
      Begin VB.TextBox Text22 
         Height          =   375
         Left            =   5880
         TabIndex        =   51
         Top             =   3750
         Width           =   1695
      End
      Begin VB.TextBox Text21 
         Height          =   375
         Left            =   2040
         TabIndex        =   50
         Top             =   4350
         Width           =   1695
      End
      Begin VB.TextBox Text20 
         Height          =   375
         Left            =   5880
         TabIndex        =   49
         Top             =   2586
         Width           =   1695
      End
      Begin VB.TextBox Text19 
         Height          =   375
         Left            =   5880
         TabIndex        =   48
         Top             =   2004
         Width           =   1695
      End
      Begin VB.TextBox Text18 
         Height          =   375
         Left            =   5880
         TabIndex        =   47
         Top             =   1422
         Width           =   1695
      End
      Begin VB.TextBox Text17 
         Height          =   375
         Left            =   5880
         TabIndex        =   46
         Top             =   840
         Width           =   1695
      End
      Begin VB.TextBox Text16 
         Height          =   375
         Left            =   5880
         TabIndex        =   39
         Top             =   3168
         Width           =   1695
      End
      Begin VB.TextBox Text15 
         Height          =   375
         Left            =   2040
         TabIndex        =   38
         Top             =   3785
         Width           =   1695
      End
      Begin VB.TextBox Text14 
         Height          =   375
         Left            =   2040
         TabIndex        =   37
         Top             =   3220
         Width           =   1695
      End
      Begin VB.TextBox Text13 
         Height          =   375
         Left            =   2040
         TabIndex        =   36
         Top             =   2655
         Width           =   1695
      End
      Begin VB.TextBox Text12 
         Height          =   375
         Left            =   2040
         TabIndex        =   35
         Top             =   2090
         Width           =   1695
      End
      Begin VB.TextBox Text11 
         Height          =   375
         Left            =   2040
         TabIndex        =   34
         Top             =   1525
         Width           =   1695
      End
      Begin VB.TextBox Text10 
         Height          =   375
         Left            =   2040
         TabIndex        =   33
         Top             =   960
         Width           =   1695
      End
      Begin VB.Label Label32 
         Caption         =   "Total Amount"
         Height          =   255
         Left            =   240
         TabIndex        =   59
         Top             =   5040
         Width           =   1695
      End
      Begin VB.Label Label31 
         Caption         =   "Expire date"
         Height          =   255
         Left            =   4080
         TabIndex        =   56
         Top             =   5040
         Width           =   1455
      End
      Begin VB.Label Label22 
         Caption         =   "Last due paid"
         Height          =   255
         Left            =   4080
         TabIndex        =   55
         Top             =   3360
         Width           =   1335
      End
      Begin VB.Label Label28 
         Caption         =   "Mode of Payment"
         Height          =   255
         Left            =   4080
         TabIndex        =   54
         Top             =   2700
         Width           =   1455
      End
      Begin VB.Label Label30 
         Alignment       =   2  'Center
         Caption         =   "Customer Detaiils"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   2640
         TabIndex        =   53
         Top             =   240
         Width           =   3015
      End
      Begin VB.Label Label29 
         Caption         =   "Next due date"
         Height          =   255
         Left            =   4080
         TabIndex        =   45
         Top             =   4440
         Width           =   1575
      End
      Begin VB.Label Label27 
         Caption         =   "Current due date"
         Height          =   255
         Left            =   4080
         TabIndex        =   44
         Top             =   3860
         Width           =   1695
      End
      Begin VB.Label Label26 
         Caption         =   "Current Amt in Account"
         Height          =   255
         Left            =   240
         TabIndex        =   43
         Top             =   4485
         Width           =   2055
      End
      Begin VB.Label Label25 
         Caption         =   "Installment"
         Height          =   255
         Left            =   4080
         TabIndex        =   42
         Top             =   2120
         Width           =   975
      End
      Begin VB.Label Label24 
         Caption         =   "Plan "
         Height          =   255
         Left            =   4080
         TabIndex        =   41
         Top             =   1540
         Width           =   1215
      End
      Begin VB.Label Label23 
         Caption         =   "Distributor code"
         Height          =   255
         Left            =   4080
         TabIndex        =   40
         Top             =   960
         Width           =   1215
      End
      Begin VB.Label Label21 
         Caption         =   "Total No. of dues"
         Height          =   375
         Left            =   240
         TabIndex        =   32
         Top             =   3240
         Width           =   1455
      End
      Begin VB.Label Label20 
         Caption         =   "No. of dues paid"
         Height          =   375
         Left            =   240
         TabIndex        =   31
         Top             =   3900
         Width           =   1215
      End
      Begin VB.Label Label19 
         Caption         =   "Term"
         Height          =   255
         Left            =   240
         TabIndex        =   30
         Top             =   2700
         Width           =   1335
      End
      Begin VB.Label Label18 
         Caption         =   "Customer Name"
         Height          =   375
         Left            =   240
         TabIndex        =   29
         Top             =   2040
         Width           =   1335
      End
      Begin VB.Label Label17 
         Caption         =   "Customer Id"
         Height          =   255
         Left            =   240
         TabIndex        =   28
         Top             =   1500
         Width           =   1215
      End
      Begin VB.Label Label16 
         Caption         =   "Date of Joining"
         Height          =   255
         Left            =   240
         TabIndex        =   27
         Top             =   960
         Width           =   1215
      End
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      ForeColor       =   &H80000008&
      Height          =   5415
      Left            =   840
      ScaleHeight     =   5385
      ScaleWidth      =   8865
      TabIndex        =   0
      Top             =   4800
      Width           =   8895
      Begin VB.TextBox Text2 
         Height          =   375
         Left            =   1920
         TabIndex        =   9
         Top             =   1590
         Width           =   1695
      End
      Begin VB.TextBox Text3 
         Height          =   375
         Left            =   1920
         TabIndex        =   8
         Top             =   840
         Width           =   1695
      End
      Begin VB.TextBox Text4 
         Height          =   375
         Left            =   1920
         TabIndex        =   7
         Top             =   2340
         Width           =   1695
      End
      Begin VB.TextBox Text5 
         Height          =   375
         Left            =   1920
         TabIndex        =   6
         Top             =   3090
         Width           =   1695
      End
      Begin VB.TextBox Text6 
         Height          =   375
         Left            =   1920
         TabIndex        =   5
         Top             =   3840
         Width           =   1695
      End
      Begin VB.TextBox Text7 
         Height          =   375
         Left            =   6120
         TabIndex        =   3
         Top             =   960
         Width           =   2175
      End
      Begin VB.TextBox Text8 
         Height          =   375
         Left            =   6120
         TabIndex        =   2
         Top             =   1620
         Width           =   2175
      End
      Begin VB.TextBox Text9 
         Height          =   375
         Left            =   6120
         TabIndex        =   1
         Top             =   2280
         Width           =   2175
      End
      Begin RichTextLib.RichTextBox RichTextBox1 
         Height          =   855
         Left            =   1920
         TabIndex        =   4
         Top             =   4320
         Width           =   6495
         _ExtentX        =   11456
         _ExtentY        =   1508
         _Version        =   393217
         Enabled         =   -1  'True
         TextRTF         =   $"search.frx":0000
      End
      Begin VB.Label Label15 
         Alignment       =   2  'Center
         Caption         =   "Agent Details"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   -120
         TabIndex        =   26
         Top             =   120
         Width           =   2655
      End
      Begin VB.Label Label1 
         Caption         =   "Name"
         Height          =   255
         Left            =   360
         TabIndex        =   19
         Top             =   1650
         Width           =   1335
      End
      Begin VB.Label Label2 
         Caption         =   "Position"
         Height          =   255
         Left            =   360
         TabIndex        =   18
         Top             =   960
         Width           =   975
      End
      Begin VB.Label Label3 
         Caption         =   "Performation"
         Height          =   375
         Left            =   360
         TabIndex        =   17
         Top             =   2340
         Width           =   1095
      End
      Begin VB.Label Label4 
         Caption         =   "Date of Join"
         Height          =   375
         Left            =   360
         TabIndex        =   16
         Top             =   3150
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Unit"
         Height          =   255
         Left            =   360
         TabIndex        =   15
         Top             =   3960
         Width           =   1335
      End
      Begin VB.Label Label6 
         Caption         =   "Address"
         Height          =   375
         Left            =   240
         TabIndex        =   14
         Top             =   4560
         Width           =   1455
      End
      Begin VB.Label Label7 
         Caption         =   "Contact No"
         Height          =   495
         Left            =   4800
         TabIndex        =   13
         Top             =   960
         Width           =   1575
      End
      Begin VB.Label Label8 
         Caption         =   "Direct Link"
         Height          =   495
         Left            =   4800
         TabIndex        =   12
         Top             =   1680
         Width           =   1215
      End
      Begin VB.Label Label9 
         Caption         =   "Indirect Link"
         Height          =   375
         Left            =   4800
         TabIndex        =   11
         Top             =   2400
         Width           =   1575
      End
      Begin VB.Label Label14 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   6000
         TabIndex        =   10
         Top             =   240
         Width           =   2655
      End
   End
   Begin VB.PictureBox Picture3 
      Appearance      =   0  'Flat
      BackColor       =   &H80000016&
      ForeColor       =   &H80000008&
      Height          =   735
      Left            =   5760
      ScaleHeight     =   705
      ScaleWidth      =   6585
      TabIndex        =   60
      Top             =   240
      Width           =   6615
      Begin VB.TextBox Text1 
         Height          =   375
         Left            =   480
         TabIndex        =   63
         Top             =   240
         Width           =   1935
      End
      Begin VB.CommandButton Command1 
         Caption         =   "Search Emp"
         Height          =   315
         Left            =   2520
         TabIndex        =   62
         Top             =   240
         Width           =   1815
      End
      Begin VB.CommandButton Command2 
         Caption         =   "Search Customer"
         Height          =   315
         Left            =   4440
         TabIndex        =   61
         Top             =   240
         Width           =   1815
      End
   End
End
Attribute VB_Name = "searching"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs, rs1 As Recordset
Dim c As Connection
Dim s(), p() As String
Dim i, j, l As Integer
Private Sub Command1_Click()
List1.Clear
List2.Clear
List3.Clear
List4.Clear
Call junior(Text1)
For i = 0 To j - 1
List1.AddItem s(i) & "  " & p(i)
Next i
Call directlink(Text1)
Call customer(Text1)
Call details(Text1)
Label10.Caption = "Total Member :" & List1.ListCount
Label11.Caption = "Total Member :" & List4.ListCount
Label12.Caption = "Total Member :" & List2.ListCount
Label13.Caption = "Total Member :" & List3.ListCount
End Sub

Private Sub junior(a As String)
ReDim s(1000), p(1000) As String
i = 0
j = 0
l = 0
Call database
rs.Open "select CodeNo,Pos from AgentInfo where IntroNo='" & a & "' and Pos<>'CED' and Pos<>'LEFT'", c
Do
If j = 0 Then
While Not rs.EOF
s(l) = rs.Fields(0)
p(l) = rs.Fields(1)
l = l + 1
j = l
rs.MoveNext
Wend
End If
Call database1
rs1.Open "select CodeNo,Pos from AgentInfo where IntroNO='" & s(i) & "' and Pos<>'CED' and Pos<>'LEFT'", c
While Not rs1.EOF
s(j) = rs1.Fields(0)
p(j) = rs1.Fields(1) & "---->" & s(i)
j = j + 1
rs1.MoveNext
Wend
i = i + 1
Loop While i < j
End Sub

Private Sub database()
Set rs = New Recordset
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseServer
rs.CursorType = adOpenKeyset
End Sub

Private Sub database1()
Set rs1 = New Recordset
rs1.LockType = adLockOptimistic
rs1.CursorLocation = adUseServer
rs1.CursorType = adOpenKeyset
End Sub

Private Sub Command2_Click()
List1.Clear
List2.Clear
List3.Clear
List4.Clear
Call cusdetails(Text1)
End Sub

Private Sub Form_Load()
Set c = New Connection
c.Provider = "Microsoft.Jet.OLEDB.4.0"
c.Open App.Path & "\Jeevan.mdb"

End Sub


Private Sub List1_Click()
Call customer(Mid(List1.List(List1.ListIndex), 1, 9))
Call details(Mid(List1.List(List1.ListIndex), 1, 9))
End Sub

Private Sub List1_DblClick()
List2.Clear
Call junior(Mid(List1.List(List1.ListIndex), 1, 9))
For i = 0 To j - 1
List2.AddItem s(i) & "  " & p(i)
Next i
Call customer(Mid(List1.List(List1.ListIndex), 1, 9))
Label12.Caption = "Total Member :" & List2.ListCount
End Sub

Private Function directlink(a As String)
i = 0
List4.Clear
Call database
rs.Open "select CodeNo,Pos from AgentInfo where IntroNo='" & a & "' and Pos<>'CED' and Pos<>'LEFT'", c
While Not rs.EOF
List4.AddItem rs.Fields(0) & "  " & rs.Fields(1)
rs.MoveNext
Wend
End Function
Private Function directlink1(a As String)
i = 0
Call database
rs.Open "select CodeNo,Pos from AgentInfo where IntroNo='" & a & "' and Pos<>'CED' and Pos<>'LEFT'", c
While Not rs.EOF
rs.MoveNext
i = i + 1
Wend
End Function
Private Function customer(a As String)
List3.Clear
Call database
rs.Open "select JVM from customer where DistributorCode='" & a & "'", c
While Not rs.EOF
List3.AddItem rs.Fields(0)
rs.MoveNext
Wend
Label13.Caption = "Total Member :" & List3.ListCount
End Function

Private Sub List2_Click()
Call customer(Mid(List2.List(List2.ListIndex), 1, 9))
Call details(Mid(List2.List(List2.ListIndex), 1, 9))
End Sub

Private Sub List2_DblClick()
Call junior(Mid(List2.List(List2.ListIndex), 1, 9))
List2.Clear
For i = 0 To j - 1
List2.AddItem s(i) & "  " & p(i)
Next i
Label12.Caption = "Total Member :" & List2.ListCount
End Sub

Private Sub List3_Click()
Call cusdetails(List3.List(List3.ListIndex))
End Sub

Private Sub List4_Click()
Call customer(Mid(List4.List(List4.ListIndex), 1, 9))
Call details(Mid(List4.List(List4.ListIndex), 1, 9))
End Sub

Private Sub List4_DblClick()
List2.Clear
Call junior(Mid(List4.List(List4.ListIndex), 1, 9))
For i = 0 To j - 1
List2.AddItem s(i) & "  " & p(i)
Next i
Call customer(Mid(List2.List(List2.ListIndex), 1, 9))
Label12.Caption = "Total Member :" & List2.ListCount
End Sub
Private Function details(a As String)
Call database
rs.Open "select * from agentinfo where CodeNo='" & a & "'", c
If Not rs.BOF Then
Label14.Caption = rs.Fields(2)
Text2 = rs.Fields(0)
Text3 = rs.Fields(1)
Text4 = rs.Fields(4)
Text5 = Format(rs.Fields(6), "d/m/yyyy")
Text6 = rs.Fields(5)
RichTextBox1.Text = rs.Fields(15)
Text7 = rs.Fields(16)
Call directlink1(a)
Text8 = i
Call junior(a)
Text9 = j
End If
End Function
Private Sub cusdetails(a As String)
Dim d2, day1 As String
Dim i, k, j As Integer
Call database
rs.Open "select * from customer where jvm='" & a & "'", c
If Not rs.BOF Then
Text10 = Format(rs.Fields(1), "d/m/yyyy")
Text11 = rs.Fields(0)
Text12 = rs.Fields(7)
Text13 = rs.Fields(3)
Text14 = Switch(rs!planNo = "PlanA", 30, rs!planNo = "PlanB" And rs!Term = 2, 2, rs!planNo = "PlanB" And rs!Term = 4, 4, rs!planNo = "PlanB" And rs!Term = 6, 6, rs!planNo = "PlanC", 5, rs!planNo = "PlanD", 5)
Text24 = rs!Amt
Text17 = rs.Fields(15)
Text18 = rs.Fields(2)
Text19 = rs.Fields(5)
Text20 = rs.Fields(4)

Call copydatabase1(a)

Text15 = copycurrentdue(a)
Text16 = Switch(Year(copylastpay(a)) < 2005, " ", Year(copylastpay(a)), Format(copylastpay(a), "mm/dd/yyyy"))
Text21 = copycurrentAcc(a)

'current due date
j = copycurrentdue(a)
j = Switch(rs!mop = "Mly", j - 1, rs!mop = "Qly", (j - 1) * 3, rs!mop = "Hly", (j - 1) * 6, rs!mop = "Yly", (j - 1) * 12, 1, 0)
'If Month(Format(rs1!datecom, "mm/yyyy")) + j > 12 Then
k = Year(rs!DateCom) + Int(((Val(months(datechange(rs!DateCom))) + j) - 1) / 12)
j = (Val(months(datechange(rs!DateCom))) + j) Mod 12
j = Switch(j = 0, 12, 1, j)
d2 = datechange(rs!DateCom)
day1 = Switch(Val(days(d2)) > 28 And j = 2, Val(days(d2)) - (Val(days(d2)) - 28), Val(days(d2)) > 30 And (j = 4 Or j = 6 Or j = 9 Or j = 11), Val(days(d2)) - 1, 1, days(d2))
Text22 = day1 & "/" & Switch(j < 10, "0" & j, 1, j) & "/" & k

'next due date
j = copycurrentdue(a)
j = Switch(rs!mop = "Mly", j, rs!mop = "Qly", (j) * 3, rs!mop = "Hly", (j) * 6, rs!mop = "Yly", (j) * 12, 1, 0)
'If Month(Format(rs!datecom, "mm/yyyy")) + j > 12 Then
k = Val(Year(rs!DateCom)) + Int(((Val(months(datechange(rs!DateCom))) + j) - 1) / 12)
j = (Val(months(datechange(rs!DateCom))) + j) Mod 12
j = Switch(j = 0, 12, 1, j)
d2 = datechange(rs!DateCom)
day1 = Switch(Val(days(d2)) > 28 And j = 2, Val(days(d2)) - (Val(days(d2)) - 28), Val(days(d2)) > 30 And (j = 4 Or j = 6 Or j = 9 Or j = 11), Val(days(d2)) - 1, 1, days(d2))
Text23 = day1 & "/" & Switch(j < 10, "0" & j, 1, j) & "/" & k

'expire date
If rs!planNo = "PlanA" Then
j = 30
k = Val(Year(rs!DateCom)) + Int(((Val(months(datechange(rs!DateCom))) + j) - 1) / 12)
j = (Val(months(datechange(rs!DateCom))) + j) Mod 12
j = Switch(j = 0, 12, 1, j)
Else
j = Format(rs!DateCom, "mm")
k = Year(rs!DateCom) + rs!Term
End If
d2 = datechange(rs!DateCom)
day1 = Switch(Val(days(d2)) > 28 And j = 2, Val(days(d2)) - (Val(days(d2)) - 28), Val(days(d2)) > 30 And (j = 4 Or j = 6 Or j = 9 Or j = 11), Val(days(d2)) - 1, 1, days(d2))
Text25 = day1 & "/" & Switch(j < 10, "0" & j, 1, j) & "/" & k
End If
End Sub


